home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / quad-1.bas < prev    next >
BASIC Source File  |  1994-06-23  |  497b  |  17 lines
  1. 10 PRINT "       ***QUADRATIC EQUATION***"
  2. 20 PRINT
  3. 30 INPUT "ENTER COEFFICIENT (A)"; A
  4. 40 INPUT "ENTER COEFFICIENT (B)"; B
  5. 50 INPUT "ENTER COEFFICIENT (C)"; C
  6. 55 D = (B^2 - 4*A*C)
  7. 59 IF D = -D  GOTO 65
  8. 60 X1=(-B+(B^2-4*A*C)^.5)/(2*A)
  9. 65 E = (B^2 - 4*A*C)
  10. 69 IF E = -E  GOTO 71
  11. 70 X2=(-B-(B^2-4*A*C)^.5)/(2*A)
  12. 71 PRINT
  13. 72 PRINT "          ***ANSWERS***"
  14. 73 PRINT
  15. 80 PRINT X1 "VALUE OF FIRST ROOT. IF 0, ROOT IS NOT REAL"
  16. 90 PRINT X2 "VALUE OF SECOND ROOT. IF 0, ROOT IS NOT REAL"
  17.